(*{{{Run*)
value _ =  
try
  let () = Random.self_init () in
  let th = 
    Thread.create begin fun () ->
      loop () where
        rec loop () =
          match Sdlevent.wait_event () with
          [ Sdlevent.QUIT -> exit 0
          | _ -> loop ()
          ]
    end ()
  in
  let map = new Map.map 30 30 in
  let manager = new Manager.manager map in
  let actors = 
    List.map begin fun (pos,name) -> 
      let a = new Actor.actor 70 name in
      (
        manager#add_actor a pos;
        manager#add_event 0.0 a `Go
      )
    end 
    [
      ((1,1),"A");
      ((1,2),"B");
      ((1,3),"C");
      ((1,4),"C");
      ((1,5),"C");

      ((24,1),"D");
      ((25,1),"E");
      ((26,1),"F");
      ((27,2),"G");
      ((28,3),"H")
    ] 
  in
  manager#run;
with [ Failure str -> print_endline ("ERORR: "^str)]; 
(*}}}*)



  
